Données

Row

Données générales

La région Bourgogne-Franche-Comté compte 1 400 sites de sport de nature en 2020. La présence de sites de nature est fortement liée au relief. Les massifs montagneux sont plus dotés que la plaine.

Row

Comparaisons régionales

9e région de France en nombre de sites de sport de nature.

REG région sites de nature
84 Auvergne-Rhône-Alpes 7 985
76 Occitanie 7 139
75 Nouvelle-Aquitaine 5 884
52 Pays de la Loire 4 493
93 Provence-Alpes-Côte d’Azur 4 060
44 Grand Est 3 438
53 Bretagne 3 007
24 Centre-Val de Loire 2 635
27 Bourgogne-Franche-Comté 1 396
28 Normandie 1 356
32 Hauts-de-France 1 303
11 Île-de-France 846
94 Corse 135
Total 43 677
Source : MEDES, recensement des équipempents sportifs 2020

Comparaisons départementales

La Côte-d’Or, la Saône et Loire, l’Yonne et le Terrtoire de Belfort peu dotées en sites de sport de nature.

Comparaisons infra régionales

DEP département sites de nature
39 Jura 428
25 Doubs 406
70 Haute-Saône 224
21 Côte-d’Or 109
71 Saône-et-Loire 77
89 Yonne 76
90 Territoire de Belfort 59
58 Nièvre 17
Total 1 396
Source : MEDES, recensement des équipempents sportifs 2020

Sites de sport de nature en Bourgogne-Franche-Comté

Une grande majorité de site de sport de nature de la région sont des boucles de randonnée.

EquipementFamille EquipementTypeLib nombre de sites
Circuit/piste de sports mécaniques Terrain de trial 1
Divers équipements Sports de nature Boucle de randonnée 692
Divers équipements Sports de nature Site d’escalade en falaise 122
Divers équipements Sports de nature Site de spéléologie sportive et/ou éducative 48
Divers équipements Sports de nature Parcours Acrobatique en Hauteur/Site d’accrobranche 41
Divers équipements Sports de nature Espace de pratique spéléologique 32
Divers équipements Sports de nature Parcours fixe de course d’orientation 16
Divers équipements Sports de nature Parcours de chasse / en campagne 10
Divers équipements Sports de nature Via ferrata / Via corda 5
Divers équipements Sports de nature Refuge de montagne 3
Divers équipements Sports de nature Canyon 2
Divers équipements Sports de nature Site de blocs d’escalade 2
Equipement & piste de ski Domaine de ski alpin 36
Equipement & piste de ski Domaine nordique 35
Equipement & piste de ski Tremplin à ski 6
Equipement & piste de ski Piste de luge 4
Equipement de cyclisme Piste de bicross 35
Equipement de cyclisme Espace trial 3
Equipement de cyclisme Piste de descente 3
Equipement de cyclisme Relais rando-vélo 1
Equipement équestre Parcours de cross 28
Equipement équestre Structure de tourisme équestre 8
Site d’activités aériennes Aire de décollage 41
Site d’activités aériennes Aire d’atterrissage 33
Site d’activités aériennes Aire mixte (décollage et atterissage) 15
Site d’activités aériennes Piste ULM 6
Site d’activités aériennes Site d’aérostation 1
Site d’activités aquatiques et nautiques Point d’embarquement et de débarquement isolé 51
Site d’activités aquatiques et nautiques Site d’activités aquatiques et nautiques 42
Site d’activités aquatiques et nautiques Baignade aménagée 24
Site d’activités aquatiques et nautiques Site de pêche 13
Site d’activités aquatiques et nautiques Stade de ski nautique 9
Site d’activités aquatiques et nautiques Stade mixte 7
Site d’activités aquatiques et nautiques Circuit de motonautisme 4
Site d’activités aquatiques et nautiques Stade d’eau vive 4
Site d’activités aquatiques et nautiques Port de plaisance 3
Site d’activités aquatiques et nautiques Stade de canoë-kayak de vitesse 3
Site d’activités aquatiques et nautiques Dispositif de franchissement 2
Site d’activités aquatiques et nautiques Site de plongée 1
Site d’activités aquatiques et nautiques Stade d’aviron 1
Site d’activités aquatiques et nautiques Téléski nautique 1
Site d’activités aquatiques et nautiques Terrain de kayak polo 1
Site d’activités aquatiques et nautiques Zone de mouillage 1
Source : MEDES, recensement des équipempents sportifs 2020

Carte régionale des sites de sport nature

carte des sites de sport nature cluster

Pour en savoir plus

Row

---
title: "Sports de nature"
output: 
  flexdashboard::flex_dashboard:
    vertical_layout: scroll
    social: menu
    source_code: embed
    navbar:
      - { title: "Accueil", href: DRAJESBFC.html, align: right, icon: fa-home }
    theme: simplex
---

```{r setup, include=FALSE ,echo=FALSE, cache=F}
#library(flexdashboard)
#source("C:/Users/plebre/Documents/projets R/DRAJES/librairies.R")
#library(gghighlight)
#library(highcharter)
#library(janitor)
#library(DT)
#library(sparkline)
#library(formattable)
#library(rgdal)
#  library(leafpop)
#  library(leaflet)
#  library(leaflet.extras2)
#  library(geosphere)
#  library(sp)
#  library(sf)
#  library(maps)
#  library(leaflet.providers) 
#  library(leaflet.minicharts)
#  library(readxl)
#  library(raster)
#  library(smoothr)
#  library(rmapshaper)
#  library(rpivotTable)
#  library(foreign)
#  library(osrm)
#  library(ggmap)
#  library(rpivotTable)
#  library(fontawesome)
#  library(tidyverse)

sparkline(0)

load("C:/Users/plebre/Documents/projets R/DRAJES/data/sport/RES.RData")
load("C:/Users/plebre/Documents/projets R/DRAJES/data/demo/basecom.RData")

#load("P:/projets R/DRAJES/data/demo/tab_demo.RData")
load("C:/Users/plebre/Documents/projets R/DRAJES/data/demo/cartes.RData")



icons <- awesomeIconList (
  "407" = makeAwesomeIcon(text =  fa("truck-monster"),markerColor ="darkred",iconColor="#FF0000",squareMarker=F),
  
  "3001" = makeAwesomeIcon(text =  fa("mountain"),iconColor="#2F4F4F",markerColor ="lightgreen"), 
  "3003" = makeAwesomeIcon(text =  fa("child"),iconColor="#2F4F4F",markerColor ="lightgreen"),
  "3004" = makeAwesomeIcon(text  =  fa("walking"),iconColor="#6B8E23",markerColor ="lightgreen")  ,
  "3005" = makeAwesomeIcon(text =  fa("map-signs"),iconColor="#6B8E23",markerColor ="lightgreen")  ,
  "3007" = makeAwesomeIcon(text =  fa("mountain"),iconColor="#2F4F4F",markerColor ="lightgreen"), 
  "3008" = makeAwesomeIcon(text =  fa("icicles"),iconColor="#696969",markerColor ="lightgreen"),
  "3010" = makeAwesomeIcon(text =  fa("mountain"),iconColor="#2F4F4F",markerColor ="lightgreen"), 
  "3011" = makeAwesomeIcon(text =  fa("mountain"),iconColor="#0000ff",markerColor ="lightgreen")  ,
  "3012" = makeAwesomeIcon(text =  fa("hiking"),iconColor="#228B22",markerColor ="lightgreen")  ,
  "3014" = makeAwesomeIcon(text =  fa("child"),iconColor="#2F4F4F",markerColor ="lightgreen"),
  "3015" = makeAwesomeIcon(text =  fa("icicles"),iconColor="#696969",markerColor ="lightgreen"),
  
  "701" = makeAwesomeIcon(text =  fa("skiing"),iconColor="#778899",markerColor ="white"),
  "703" = makeAwesomeIcon(text =  fa("skiing"),iconColor="#696969",markerColor ="white"),
  "705" = makeAwesomeIcon(text =  fa("skiing-nordic"),iconColor="#708090",markerColor ="white"),
  "706" = makeAwesomeIcon(text =  fa("skiing"),iconColor="#696969",markerColor ="white"),
  
  "603" = makeAwesomeIcon(text =  fa("biking"),iconColor="#6A5ACD",markerColor ="orange"),
  "604" = makeAwesomeIcon(text =  fa("biking"),iconColor="#6A5ACD",markerColor ="orange"),
  "605" = makeAwesomeIcon(text =  fa("biking"),iconColor="#6A5ACD",markerColor ="orange"),
  "606" = makeAwesomeIcon(text =  fa("biking"),iconColor="#6A5ACD",markerColor ="orange"),
  
  "906" = makeAwesomeIcon(text =  fa("horse"),iconColor="#F4A460",markerColor ="black"),
  "909" = makeAwesomeIcon(text =  fa("horse"),iconColor="#F4A460",markerColor ="black"),
  
  "2401" = makeAwesomeIcon(text =  fa("swimmer"),iconColor="#4169E1",markerColor ="lightblue"),
  "2402" = makeAwesomeIcon(text =  fa("swimmer"),iconColor="#4169E1",markerColor ="lightblue"),
  "2403" = makeAwesomeIcon(text =  fa("swimmer"),iconColor="#4169E1",markerColor ="lightblue"),
  "2404" = makeAwesomeIcon(text =  fa("swimmer"),iconColor="#4169E1",markerColor ="lightblue"),
  "2405" = makeAwesomeIcon(text =  fa("swimmer"),iconColor="#4169E1",markerColor ="lightblue"),
  "2406" = makeAwesomeIcon(text =  fa("swimmer"),iconColor="#4169E1",markerColor ="lightblue"),
  "2407" = makeAwesomeIcon(text =  fa("swimmer"),iconColor="#4169E1",markerColor ="lightblue"),
  "2408" = makeAwesomeIcon(text =  fa("swimmer"),iconColor="#4169E1",markerColor ="lightblue"),
  "2409" = makeAwesomeIcon(text =  fa("swimmer"),iconColor="#4169E1",markerColor ="lightblue"),
  "2410" = makeAwesomeIcon(text =  fa("swimmer"),iconColor="#4169E1",markerColor ="lightblue"),
  "2414" = makeAwesomeIcon(text =  fa("swimmer"),iconColor="#4169E1",markerColor ="lightblue"),
  "2416" = makeAwesomeIcon(text =  fa("swimmer"),iconColor="#4169E1",markerColor ="lightblue"),
  "2417" = makeAwesomeIcon(text =  fa("anchor"),iconColor="#0000CD",markerColor ="lightblue"),
  "2418" = makeAwesomeIcon(text =  fa("anchor"),iconColor="#0000CD",markerColor ="lightblue"),
  "2419" = makeAwesomeIcon(text =  fa("water"),iconColor="#4169E1",markerColor ="lightblue"),
  "2420" = makeAwesomeIcon(text =  fa("fish"),iconColor="#0000CD",markerColor ="lightblue"),
  
  "2301" = makeAwesomeIcon(text =  fa("paper-plane"),iconColor="#FFFF00",markerColor ="purple"),
  "2302" = makeAwesomeIcon(text =  fa("paper-plane"),iconColor="#FFFF00",markerColor ="purple"),
  "2303" = makeAwesomeIcon(text =  fa("paper-plane"),iconColor="#FFFF00",markerColor ="purple"),
  "2305" = makeAwesomeIcon(text =  fa("paper-plane"),iconColor="#FFFF00",markerColor ="purple"),
  "2306" = makeAwesomeIcon(text =  fa("paper-plane"),iconColor="#FFFF00",markerColor ="purple") )


pal2 <- colorBin("YlOrBr", domain =0:100 ,bins= c(0, 15, 20, 25, 30, 100) )

pal1 <- colorBin(c("#d7191c","#fec981","#c4e687","#1a9641"), domain =0:100 ,bins= c(0, 19, 22, 25, 100) )

depbfc <- c('21','25','39','58','70','71','89','90')


# Option de chunk
knitr::opts_chunk$set(
 fig.width = 6,
 fig.asp = 0.8,
 out.width = "80%"
)
```

Données {data-orientation="rows" data-icon="fa-signal"}
=======================================================================

Row {data-height="100"}
-----------------------------------------------------------------------

### Données générales

La région Bourgogne-Franche-Comté compte **1 400** sites de sport de nature en 2020.
La présence de sites de nature est fortement liée au relief. Les massifs montagneux sont plus dotés que la plaine.

Row {.tabset .tabset-fade .tabset-pills data-height="800"}
-----------------------------------------------------------------------

### Comparaisons régionales

**9e** région de France en nombre de sites de sport de nature.

```{r}
nature %>% group_by(REG) %>% summarise(`sites de nature`=n() )  %>%
  arrange(desc(`sites de nature`)) %>% adorn_totals("row") %>% 
  left_join(.,appartenance %>% dplyr::filter (NIVGEO=="REG") %>% dplyr::select (2,3),by=c("REG"="CODGEO")) %>%
  relocate(région=LIBGEO,.after=REG) %>%
 kable("html", format.args = list(decimal.mark = ",", big.mark = " "),
      align="lcrrrrrrrrr",
      escape = F) %>% 
  kable_styling("hover", full_width = F) %>%
#  column_spec(11, bold=T) %>%
  row_spec(9,background = "#E0FFFF75",  bold = T , color = "steelblue") %>%
#  row_spec(nrow(region_tab),bold = T,color = "navy") %>%
  footnote(general = "MEDES, recensement des équipempents sportifs 2020", general_title = "Source : ",
           footnote_as_chunk = T)
```
### Comparaisons départementales

La Côte-d'Or, la Saône et Loire, l'Yonne et le Terrtoire de Belfort peu dotées en sites de sport de nature.

```{r}

hchart(nature %>% group_by(DEP) %>% summarise(`sites de nature`=n() )  %>%  arrange(desc(`sites de nature`)) %>%
         left_join(.,appartenance %>% dplyr::filter (NIVGEO=="DEP") %>% dplyr::select (2,3),by=c("DEP"="CODGEO")) %>%
  relocate(département=LIBGEO,.after=DEP) 
       ,
       "bar", hcaes(x=reorder(département,`sites de nature`),y=`sites de nature`,color=ifelse(DEP %in% depbfc,"#6a5acd",
                                                                 ifelse(DEP=="FR","#ff7f50","#ffd700") ) ), 
       showInLegend = F, name = "Sites de nature", pointWidth = 1) %>%
    hc_xAxis(title=list(text="Départements")) %>%
    hc_yAxis(title=list(text="Nombre de sites de nature")) %>%
  hc_add_theme(thm) 

```

### Comparaisons infra régionales
```{r}
nature%>% filter(REG=='27') %>% group_by(DEP) %>%  summarise(`sites de nature`=n() )  %>%
  arrange(desc(`sites de nature`)) %>% adorn_totals("row") %>%
  left_join(.,appartenance %>% dplyr::filter (NIVGEO=="DEP") %>% dplyr::select (2,3),by=c("DEP"="CODGEO")) %>%
  relocate(département=LIBGEO,.after=DEP) %>%
 kable("html", format.args = list(decimal.mark = ",", big.mark = " "),
      align="lcrrrrrrrrr",
      escape = F) %>% 
  kable_styling("hover", full_width = F) %>%
#  column_spec(11, bold=T) %>%
#  row_spec(nrow(region_tab),bold = T,color = "navy") %>%
  footnote(general = "MEDES, recensement des équipempents sportifs 2020", general_title = "Source : ",
           footnote_as_chunk = T)
```

### Sites de sport de nature en Bourgogne-Franche-Comté

Une grande majorité de site de sport de nature de la région sont des boucles de randonnée.

```{r}
nature27 %>% filter (REG=="27") %>% group_by(EquipementFamille,EquipementTypeLib) %>% summarise(`nombre de sites`=n()) %>% arrange(desc(`nombre de sites`),.by_group = T) %>%
   kable("html", format.args = list(decimal.mark = ",", big.mark = " "),
      align="crrrrrrrrr",
      escape = F) %>% 
  kable_styling("hover", full_width = F) %>%
#  column_spec(11, bold=T) %>%
#  row_spec(nrow(region_tab),bold = T,color = "navy") %>%
  footnote(general = "MEDES, recensement des équipempents sportifs 2020", general_title = "Source : ",
           footnote_as_chunk = T) %>%
   scroll_box(height = "800px") 

```




### Carte régionale des sites de sport nature

```{r}
nature27.df <- split(nature27,nature27$EquipementFamille)

depnature27 <- table(nature27$DEP,nature27$EquipementFamille) 
depnature27 <- as.data.frame(addmargins(depnature27))
depnature27 <- spread(depnature27,Var2,Freq)
dep27carto <- merge(dep27carto,depnature27,by.x="INSEE_DEP",by.y="Var1")

l <- leaflet() %>% 
  setView(lng = 5.1, lat = 47.27, zoom = 8) %>%
   addProviderTiles(providers$OpenTopoMap) 

names(nature27.df) %>%
  purrr::walk( function(df) {
    l <<- l %>%
      addAwesomeMarkers(data=nature27.df[[df]],
                        lng=~EquGPSX, lat=~EquGPSY,
                        label=~as.character(EquipementFamille),
                        icon = ~icons[(as.character(EquipementTypeCode) )],
                        popup=~popupTable(nature27.df[[df]],row.numbers = F,feature.id = F),
                        group = df,
                        #clusterOptions = markerClusterOptions(removeOutsideVisibleBounds = F),
                        labelOptions = labelOptions(noHide = F,
                                                    direction = 'auto'))
  })


l %>%
 addPolygons(data=reg27carto,group  = "BFC",fill = F,color="#9370DB",weight = 5,opacity = 1) %>%
  addPolygons(data=dep27carto,group  = "départements",fill = F,color="#9370DB",weight = 3,opacity = 1) %>%
  addLayersControl(
    overlayGroups = names(nature27.df),
    options = layersControlOptions(collapsed = FALSE)
  )

```



### carte des sites de sport nature cluster
```{r}
nature27.df <- split(nature27,nature27$EquipementFamille)

depnature27 <- table(nature27$DEP,nature27$EquipementFamille) 
depnature27 <- as.data.frame(addmargins(depnature27))
depnature27 <- spread(depnature27,Var2,Freq)
dep27carto <- merge(dep27carto,depnature27,by.x="INSEE_DEP",by.y="Var1")

l <- leaflet() %>% 
  setView(lng = 5.1, lat = 47.27, zoom = 8) %>%
   addProviderTiles(providers$OpenTopoMap) 

names(nature27.df) %>%
  purrr::walk( function(df) {
    l <<- l %>%
      addAwesomeMarkers(data=nature27.df[[df]],
                        lng=~EquGPSX, lat=~EquGPSY,
                        label=~as.character(EquipementFamille),
                        icon = ~icons[(as.character(EquipementTypeCode) )],
                        popup=~popupTable(nature27.df[[df]],row.numbers = F,feature.id = F),
                        group = df,
                        clusterOptions = markerClusterOptions(removeOutsideVisibleBounds = F),
                        labelOptions = labelOptions(noHide = F,
                                                    direction = 'auto'))
  })


l %>%
 addPolygons(data=reg27carto,group  = "BFC",fill = F,color="#9370DB",weight = 5,opacity = 1) %>%
  addPolygons(data=dep27carto,group  = "départements",fill = F,color="#9370DB",weight = 3,opacity = 1) %>%
  addLayersControl(
    overlayGroups = names(nature27.df),
    options = layersControlOptions(collapsed = FALSE)
  )

```

Pour en savoir plus {data-orientation="rows" data-icon="fa-info-circle" font-size="25px" }
=======================================================================
Row {data-height="20"}
-----------------------------------------------------------------------
Row {data-height="60"}
-----------------------------------------------------------------------

**Sources :**  



* Injep, MEDES, recensement des "licences et des clubséquipements sportifs (RES)

  + https://equipements.sports.gouv.fr/pages/accueil/
  + https://carto-stats.injep.fr/#c=home
  + https://www.data.gouv.fr/fr/datasets/recensement-des-equipements-sportifs-espaces-et-sites-de-pratiques/  
  
* Insee, Base permanente des équipements

  + https://www.insee.fr/fr/metadonnees/source/operation/s2027/presentation

Navigation {data-orientation="rows" data-icon="fa-map-signs" font-size="25px" }
=======================================================================
Row {data-height="20"}
-----------------------------------------------------------------------
Row {data-height="100"}
-----------------------------------------------------------------------
1. **Généralités**  
 + [Territoire(s)](1.1_demo.html)  
 + [Structure de la population](1.2_structure.html)  
 + [évolution de la population](1.3_evol.html)  

Row {data-height="100"}
-----------------------------------------------------------------------
2. **Jeunesse**   
 + [Jeunesse](2.1_jeunesse.html)   
 + [Préscolaire](2.2_presco.html)  
 + [Accueils collectifs de mineurs](2.3_ACM.html)    

Row {data-height="100"}
-----------------------------------------------------------------------
3. **Engagement**   
 + [Vie associative](3.1_VA.html)   
 + [Service civique](3.2_SC.html)   

Row {data-height="100"}
-----------------------------------------------------------------------
4. **Formation**   
 + [Diplômes](4.1_diplomes.html)  
 + [Organismes de formation](4.2_OF3.html)  

Row {data-height="100"}
-----------------------------------------------------------------------
5. **Sport**    
 + [Clubs sportifs](5.1_clubs.html)  
 + [Licences sportives](5.2_licences.html)  
 + [Sport de nature](5.3_nature.html)  
 + [Piscines](5.4_piscines.html)  
 + [équipements sportifs](5.5_RES.html)